BBS in a Box 5/BBS in a Box -Volume V (BBS in a Box) (April 1992).iso/Files/Hyper/Ap-Az/AstroStack1.1.cpt/AstroStack 1.1/card_7360.txt

Text File | 1988-04-24 | 7.4 KB | 301 lines

-- card: 7360 from stack: in.1
-- bmap block id: 10870
-- flags: 0000
-- background id: 2632
-- name:
----- HyperTalk script -----
on openCard

  hide card button id 35
  hide card field id 33
  show card button id 34

end openCard


-- part 1 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=36 top=63 right=81 bottom=194
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 25 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=385 top=298 right=320 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Continue
----- HyperTalk script -----

on mouseUp
  global sun, moon, mercury, venus, mars, jupiter, saturn, uranus, neptune, pluto, hour, dateB, midA, midB, midheaven
  set the cursor to 4
  repeat with x = 1 to 10
    if item 1 of line x of card field id 47 is not in card field id 48
    then
    beep
    answer "Please check the spelling of line" && x &"."
    exit mouseUp
  end if
end repeat

repeat with x = 1 to 10
  if the number of items in line x of card field id 47 <>3
  then
  beep
  answer "Line " & x && "needs 3 items and 2 commas."
  exit mouseUp
end if
end repeat

repeat with x = 1 to 12
  if item 1 of line 1 of card field id 47 = item 1 of line x of card field id 48 then
    put (item 2 of line x of card field id 48) + (item 2 of line 1 of card field id 47) + ((item 3 of line 1 of card field id 47)/60) into sun
    exit repeat
  end if
end repeat

repeat with x = 1 to 12
  if item 1 of line 2 of card field id 47 = item 1 of line x of card field id 48 then
    put (item 2 of line x of card field id 48) + (item 2 of line 2 of card field id 47) + ((item 3 of line 2 of card field id 47)/60) into moon
    exit repeat
  end if
end repeat
repeat with x = 1 to 12
  if item 1 of line 3 of card field id 47 = item 1 of line x of card field id 48 then
    put (item 2 of line x of card field id 48) + (item 2 of line 3 of card field id 47) + ((item 3 of line 3 of card field id 47)/60) into mercury
    exit repeat
  end if
end repeat
repeat with x = 1 to 12
  if item 1 of line 4 of card field id 47 = item 1 of line x of card field id 48 then
    put (item 2 of line x of card field id 48) + (item 2 of line 4 of card field id 47) + ((item 3 of line 4 of card field id 47)/60) into venus
    exit repeat
  end if
end repeat
repeat with x = 1 to 12
  if item 1 of line 5 of card field id 47 = item 1 of line x of card field id 48 then
    put (item 2 of line x of card field id 48) + (item 2 of line 5 of card field id 47) + ((item 3 of line 5 of card field id 47)/60) into mars
    exit repeat
  end if
end repeat
repeat with x = 1 to 12
  if item 1 of line 6 of card field id 47 = item 1 of line x of card field id 48 then
    put (item 2 of line x of card field id 48) + (item 2 of line 6 of card field id 47) + ((item 3 of line 6 of card field id 47)/60) into jupiter
    exit repeat
  end if
end repeat
repeat with x = 1 to 12
  if item 1 of line 7 of card field id 47 = item 1 of line x of card field id 48 then
    put (item 2 of line x of card field id 48) + (item 2 of line 7 of card field id 47) + ((item 3 of line 7 of card field id 47)/60) into saturn
    exit repeat
  end if
end repeat
repeat with x = 1 to 12
  if item 1 of line 8 of card field id 47 = item 1 of line x of card field id 48 then
    put (item 2 of line x of card field id 48) + (item 2 of line 8 of card field id 47) + ((item 3 of line 8 of card field id 47)/60) into uranus
    exit repeat
  end if
end repeat
repeat with x = 1 to 12
  if item 1 of line 9 of card field id 47 = item 1 of line x of card field id 48 then
    put (item 2 of line x of card field id 48) + (item 2 of line 9 of card field id 47) + ((item 3 of line 9 of card field id 47)/60) into neptune
    exit repeat
  end if
end repeat
repeat with x = 1 to 12
  if item 1 of line 10 of card field id 47 = item 1 of line x of card field id 48 then
    put (item 2 of line x of card field id 48) + (item 2 of line 10 of card field id 47) + ((item 3 of line 10 of card field id 47)/60) into pluto
    exit repeat
  end if
end repeat


repeat with x = 1 to 12
  if midA =  item 1 of line x of card field id 48 then
    put  (item 2 of line x of card field id 48) + the value of midB into midheaven
    exit repeat
  end if
end repeat


convert dateB to seconds
if hour < 12 then
  put "previous day:" into card field ID 50 in card id 9215
  put dateB - 86400 into prevday
  convert prevday to abbreviated date
  put prevday & "." into card field id 1 of card id 9215
end if
if hour >= 12 then
  put "following day:" into card field ID 50 in card id 9215
  put dateB + 86400 into nexday
  convert nexday to abbreviated date
  put nexday & "." into card field id 1 of card id 9215
end if
go to next card
end mouseUp



-- part 33 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=380 top=200 right=282 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 34 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=386 top=171 right=193 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Open Speller
----- HyperTalk script -----
on mouseUp
  show card field ID 33
  show card button ID 35
  hide card button ID 34
end mouseUp



-- part 35 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=386 top=171 right=193 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Close Speller
----- HyperTalk script -----
on mouseUp
  hide card field ID 33
  show card button ID 34
  hide card button ID 35
end mouseUp



-- part 48 (field)
-- low flags: 00
-- high flags: 4007
-- rect: left=136 top=187 right=291 bottom=312
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 46 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=120 top=161 right=320 bottom=182
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 47 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=181 top=162 right=321 bottom=330
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part contents for card part 33
----- text -----
Aries
Taurus
Gemini
Cancer
Leo
Virgo
Libra
Scorpio
Sagittarius
Capricorn
Aquarius
Pisces

-- part contents for card part 46
----- text -----
Sun
Moon
Mercury
Venus
Mars
Jupiter
Saturn
Uranus
Neptune
Pluto





-- part contents for card part 48
----- text -----
Aries,   0
Taurus, 30
Gemini,  60
Cancer,  90
Leo, 120
Virgo,  150
Libra, 180
Scorpio,  210
Sagittarius,  240
Capricorn,  270
Aquarius,  300
Pisces,  330

-- part contents for card part 1
----- text -----
.